|
500
|
How can I filter items for dates before a specified date
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Dates")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowFocusItem | exNoItems
var_Column:Filter := "to 12/27/2010"
var_Column:FilterType := exDate
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20101227"))
var_Items:AddItem(SToD("20101228"))
var_Items:AddItem(SToD("20101229"))
var_Items:AddItem(SToD("20101230"))
var_Items:AddItem(SToD("20101231"))
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
499
|
Is it possible to filter dates
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Dates")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowFocusItem | exNoItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20101227"))
var_Items:AddItem(SToD("20101228"))
var_Items:AddItem(SToD("20101229"))
var_Items:AddItem(SToD("20101230"))
var_Items:AddItem(SToD("20101231"))
oDCOCX_Exontrol1:EndUpdate()
|
|
498
|
Is it possible to change the Exclude field name to something different, in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:[Description,exFilterBarExclude] := "Leaving out"
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
oDCOCX_Exontrol1:EndUpdate()
|
|
497
|
How can I display the Exclude field in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
oDCOCX_Exontrol1:EndUpdate()
|
|
496
|
Is it possible to show and ensure the focused item from the control, in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowFocusItem | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:[SelectItem,var_Items:InsertItem(h,nil,"Child 2")] := true
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
495
|
Is it possible to show only blanks items with no listed items from the control
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowBlanks | exNoItems
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
494
|
How can I include the blanks items in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowBlanks | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
493
|
How can I select multiple items in the drop down filter window, using check-boxes
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
492
|
Is it possible to allow a single item being selected in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exSingleSel
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
491
|
How can I display no (All) item in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:[Description,exFilterBarAll] := ""
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:FilterList := exNoItems
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
490
|
Is it possible to display no items in the drop down filter window, so only the pattern is visible
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:FilterList := exNoItems
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
489
|
How do I hide the selection
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:ShowFocusRect := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Column := IColumn{var_Columns:Add("Format")}
var_Column:FormatColumn := "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
var_Column:[Def,exCellCaptionFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(10)
var_Items:AddItem(-8)
oDCOCX_Exontrol1:EndUpdate()
|
|
488
|
How do I access the cells, or how do I get the values in the columns
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("C1")
var_Columns:Add("C2")
var_Columns:Add("C3")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Item 1")
var_Items:[CellCaption,h,1] := "SubItem 1.1"
var_Items:[CellCaption,h,2] := "SubItem 1.2"
OutputDebugString(String2Psz( AsString(var_Items:[CellCaption,h,0]) ))
|
|
487
|
Is it possible to load child items when clicking the +/- button
METHOD OCX_Exontrol1BeforeExpandItem(Item,Cancel) CLASS MainDialog
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:InsertItem(Item,nil,"new")
var_Items:[ItemHasChildren,var_Items:InsertItem(Item,nil,"new")] := true
var_Items:InsertItem(Item,nil,"new")
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[ItemHasChildren,var_Items:AddItem("aka")] := true
var_Items:AddItem("next item")
|
|
486
|
How can I change the check-boxes appearance
local var_Appearance as IAppearance
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Default")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
var_Appearance:Add(1,"XP:Button 3 12")
var_Appearance:Add(2,"XP:Button 3 11")
var_Appearance:Add(3,"XP:Button 3 10")
oDCOCX_Exontrol1:[CheckImage,Unchecked] := 16777216
oDCOCX_Exontrol1:[CheckImage,Checked] := 33554432
oDCOCX_Exontrol1:[CheckImage,PartialChecked] := 50331648
|
|
485
|
How can I initiate the OLE Drag and Drop support
METHOD OCX_Exontrol1OLEStartDrag(Data,AllowedEffects) CLASS MainDialog
// OLEStartDrag event - Occurs when the OLEDrag method is called.
// Data.SetData("data to drag")
AllowedEffects := 1
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:OLEDropMode := exOLEDropManual
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
|
|
484
|
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)
local var_Columns as IColumns
local var_ConditionalFormat,var_ConditionalFormat1 as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1","K1")
var_ConditionalFormat:BackColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
var_ConditionalFormat1 := oDCOCX_Exontrol1:ConditionalFormats:Add("1","K2")
var_ConditionalFormat1:BackColor := RGB(255,0,0)
var_ConditionalFormat1:ApplyTo := 0x2 |
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:DrawGridLines := exRowLines
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
var_Columns:Add("Column 3")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(nil)
var_Items:AddItem(nil)
var_Items:AddItem(nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
483
|
Is it possible to display empty strings for 0 values
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}:FormatColumn := "dbl(value) ? currency(dbl(value)) : ``"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(1.23)
var_Items:AddItem(2.34)
var_Items:AddItem(0)
var_Items:AddItem(10000.99)
|
|
482
|
Is it possible to display empty strings for 0 values
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}:ComputedField := "%0 ? currency(%0) : ``"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(1.23)
var_Items:AddItem(2.34)
var_Items:AddItem(0)
var_Items:AddItem(10000.99)
|
|
481
|
How can I get the list of items as they are displayed
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:Columns:Add("Names")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Mantel")
var_Items:AddItem("Mechanik")
var_Items:AddItem("Motor")
var_Items:AddItem("Murks")
var_Items:AddItem("Märchen")
var_Items:AddItem("Möhren")
var_Items:AddItem("Mühle")
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:GetItems(1)) ))
|
|
480
|
Is posible to reduce the size of the picture to be shown in the column's caption
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:HeaderHeight := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("DefaultSize")}:HTMLCaption := "Default-Size <img>pic1</img> Picture"
IColumn{oDCOCX_Exontrol1:Columns:Add("CustomSize")}:HTMLCaption := "Custom-Size <img>pic1:16</img> Picture"
oDCOCX_Exontrol1:EndUpdate()
|
|
479
|
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1",nil)
var_ConditionalFormat:Bold := true
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
oDCOCX_Exontrol1:Columns:Add("C1")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("C2")}
var_Column:HeaderBold := true
var_Column:HTMLCaption := "<fgcolor=FF0000>C2"
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem(10),1] := 11
var_Items:[CellCaption,var_Items:AddItem(12),1] := 13
oDCOCX_Exontrol1:EndUpdate()
|
|
478
|
The item is not getting selected when clicking the cell's checkbox. What should I do
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
oDCOCX_Exontrol1:Items:[SelectItem,Item] := true
RETURN NIL
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}:[Def,exCellHasCheckBox] := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
var_Items:AddItem(3)
|
|
477
|
Is it possible to limit the height of the item while resizing
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:[ItemMinHeight,Item] := 18
oDCOCX_Exontrol1:Items:[ItemMaxHeight,Item] := 72
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ItemsAllowSizing := exResizeItem
oDCOCX_Exontrol1:ScrollBySingleLine := false
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:Columns:Add("Names")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Mantel")
var_Items:AddItem("Mechanik")
var_Items:AddItem("Motor")
var_Items:AddItem("Murks")
var_Items:AddItem("Märchen")
var_Items:AddItem("Möhren")
var_Items:AddItem("Mühle")
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
|
|
476
|
Is it possible to copy the hierarchy of the control using the GetItems method
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Def")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(-1),nil)
|
|
475
|
How can I show the child items with no identation
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesOutside
oDCOCX_Exontrol1:Indent := 12
oDCOCX_Exontrol1:HasLines := exThinLine
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
|
|
474
|
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesAtRoot
oDCOCX_Exontrol1:Indent := 12
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
473
|
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesOutside
oDCOCX_Exontrol1:Indent := 12
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
|
|
472
|
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesInsideLeaf
oDCOCX_Exontrol1:Indent := 12
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
471
|
Is there other ways of showing the hierarchy lines (exGroupLinesInside)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesInside
oDCOCX_Exontrol1:Indent := 12
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
470
|
Is there other ways of showing the hierarchy lines (exGroupLines)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLines
oDCOCX_Exontrol1:Indent := 12
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(var_Items:InsertItem(h,nil,"Child 2"),nil,"SubChild 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
469
|
Does your control supports multiple lines tooltip
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:ToolTipDelay := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("tootip")}:ToolTip := "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
|
|
468
|
How can I prevent highlighting the column from the cursor - point
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI=")
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := 0x1000000
IColumn{oDCOCX_Exontrol1:Columns:Add("S")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("Level 1")}:LevelKey := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("Level 2")}:LevelKey := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("Level 3")}:LevelKey := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("E1")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("E2")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("E3")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("E4")}:Width := 32
|
|
467
|
Is there any option to show the tooltip programmatically
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
oDCOCX_Exontrol1:ShowToolTip(AsString(oDCOCX_Exontrol1:[ItemFromPoint,-1,-1,c,hit]),"","8","8",nil)
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:EndUpdate()
|
|
466
|
Is it possible to prevent changing the rows/items colors by selection
local var_Items as IItems
oDCOCX_Exontrol1:SelBackMode := exTransparent
IColumn{oDCOCX_Exontrol1:Columns:Add("HTML")}:[Def,exCellCaptionFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("<font ;12>T</font>his <b>is</b> an <a>html</a> <font Tahoma><fgcolor=FF0000>text</fgcolor></font>.")
var_Items:[SelectItem,var_Items:AddItem("<font ;6>This</font> <b>is</b> another <a>html</a> <font Tahoma><fgcolor=FF0000>text</fgcolor></font>.")] := true
|
|
465
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:Columns:Add("Value")
oDCOCX_Exontrol1:Columns:Add("FormatCell")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(1)
var_Items:[CellCaption,h,1] := 12
var_Items:[FormatCell,h,1] := "currency(value)"
h := var_Items:AddItem(SToD("20010101"))
var_Items:[CellCaption,h,1] := SToD("20010101")
var_Items:[CellCaptionFormat,h,1] := exHTML
var_Items:[FormatCell,h,1] := "longdate(value) replace '2001' with '<b>2001</b>'"
oDCOCX_Exontrol1:EndUpdate()
|
|
464
|
How can I simulate displaying groups
local var_Columns as IColumns
local var_Items as IItems
local h,h1 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HasLines := exNoLine
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Name")
var_Columns:Add("A")
var_Columns:Add("B")
var_Columns:Add("C")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Group 1")
var_Items:[CellHAlignment,h,0] := CenterAlignment
var_Items:[ItemDivider,h] := 0
var_Items:[ItemDividerLineAlignment,h] := DividerBoth
var_Items:[ItemHeight,h] := 24
var_Items:[SortableItem,h] := false
h1 := var_Items:InsertItem(h,nil,"Child 1")
var_Items:[CellCaption,h1,1] := 1
var_Items:[CellCaption,h1,2] := 2
var_Items:[CellCaption,h1,3] := 3
h1 := var_Items:InsertItem(h,nil,"Child 2")
var_Items:[CellCaption,h1,1] := 4
var_Items:[CellCaption,h1,2] := 5
var_Items:[CellCaption,h1,3] := 6
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Group 2")
var_Items:[CellHAlignment,h,0] := CenterAlignment
var_Items:[ItemDivider,h] := 0
var_Items:[ItemDividerLineAlignment,h] := DividerBoth
var_Items:[ItemHeight,h] := 24
var_Items:[SortableItem,h] := false
h1 := var_Items:InsertItem(h,nil,"Child 1")
var_Items:[CellCaption,h1,1] := 1
var_Items:[CellCaption,h1,2] := 2
var_Items:[CellCaption,h1,3] := 3
h1 := var_Items:InsertItem(h,nil,"Child 2")
var_Items:[CellCaption,h1,1] := 4
var_Items:[CellCaption,h1,2] := 5
var_Items:[CellCaption,h1,3] := 6
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
463
|
How can I collapse all items
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,0] := false
oDCOCX_Exontrol1:EndUpdate()
|
|
462
|
How can I expand all items
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
461
|
Can I use PNG images to display pictures in the control
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\card.png"
oDCOCX_Exontrol1:HeaderHeight := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("ColumnName")}:HTMLCaption := "<b>HTML</b> Column <img>pic1</img> Picture"
|
|
460
|
Is it possible to move an item from a parent to another
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("A")
var_Items:AddItem("B")
var_Items:InsertItem(var_Items:AddItem("C"),"","D")
var_Items:SetParent(var_Items:[FindItem,"D",0,nil],var_Items:[FindItem,"A",0,nil])
oDCOCX_Exontrol1:EndUpdate()
|
|
459
|
How can I change the identation for an item
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("A")
var_Items:AddItem("B")
var_Items:InsertItem(var_Items:AddItem("C"),"","D")
var_Items:SetParent(var_Items:[FindItem,"D",0,nil],0)
oDCOCX_Exontrol1:EndUpdate()
|
|
458
|
How can I filter programatically using more columns
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Car")
var_Columns:Add("Equipment")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem("Mazda"),1] := "Air Bag"
var_Items:[CellCaption,var_Items:AddItem("Toyota"),1] := "Air Bag,Air condition"
var_Items:[CellCaption,var_Items:AddItem("Ford"),1] := "Air condition"
var_Items:[CellCaption,var_Items:AddItem("Nissan"),1] := "Air Bag,ABS,ESP"
var_Items:[CellCaption,var_Items:AddItem("Mazda"),1] := "Air Bag, ABS,ESP"
var_Items:[CellCaption,var_Items:AddItem("Mazda"),1] := "ABS,ESP"
var_Column := oDCOCX_Exontrol1:Columns:[Item,"Car"]
var_Column:FilterType := exFilter
var_Column:Filter := "Mazda"
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,"Equipment"]
var_Column1:FilterType := exPattern
var_Column1:Filter := "*ABS*|*ESP*"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
457
|
Is it possible to colour a particular column, I mean the cell's foreground color
local var_Columns as IColumns
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1",nil)
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem(0),1] := 1
var_Items:[CellCaption,var_Items:AddItem(2),1] := 3
var_Items:[CellCaption,var_Items:AddItem(4),1] := 5
oDCOCX_Exontrol1:EndUpdate()
|
|
456
|
Is it possible to colour a particular column for specified values
local var_Columns as IColumns
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("int(%1) in (3,4,5)",nil)
var_ConditionalFormat:BackColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem(0),1] := 1
var_Items:[CellCaption,var_Items:AddItem(2),1] := 3
var_Items:[CellCaption,var_Items:AddItem(4),1] := 5
oDCOCX_Exontrol1:EndUpdate()
|
|
455
|
Is it possible to colour a particular column
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exCellBackColor] := 255
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem(0),1] := 1
var_Items:[CellCaption,var_Items:AddItem(2),1] := 3
var_Items:[CellCaption,var_Items:AddItem(4),1] := 5
oDCOCX_Exontrol1:EndUpdate()
|
|
454
|
How do i get all the children items that are under a certain parent Item handle
local var_Items,var_Items1 as IItems
local h,hChild as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("P")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
var_Items1 := oDCOCX_Exontrol1:Items
hChild := var_Items1:[ItemChild,var_Items1:FirstVisibleItem]
OutputDebugString(String2Psz( AsString(var_Items1:[CellCaption,hChild,0]) ))
OutputDebugString(String2Psz( AsString(var_Items1:[CellCaption,var_Items1:[NextSiblingItem,hChild],0]) ))
oDCOCX_Exontrol1:EndUpdate()
|
|
453
|
How can I get the caption of focused item
METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
// SelectionChanged event - Fired after a new item has been selected.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
OutputDebugString(String2Psz( "Handle" ))
OutputDebugString(String2Psz( AsString(var_Items:FocusItem) ))
OutputDebugString(String2Psz( "Caption" ))
OutputDebugString(String2Psz( AsString(var_Items:[CellCaption,var_Items:FocusItem,0]) ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
452
|
How can I get the caption of selected item
METHOD OCX_Exontrol1SelectionChanged() CLASS MainDialog
// SelectionChanged event - Fired after a new item has been selected.
local var_Items as IItems
var_Items := oDCOCX_Exontrol1:Items
OutputDebugString(String2Psz( "Handle" ))
OutputDebugString(String2Psz( AsString(var_Items:[SelectedItem,0]) ))
OutputDebugString(String2Psz( "Caption" ))
OutputDebugString(String2Psz( AsString(var_Items:[CellCaption,var_Items:[SelectedItem,0],0]) ))
RETURN NIL
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("R1")
var_Items:InsertItem(h,nil,"Cell 1.1")
var_Items:InsertItem(h,nil,"Cell 1.2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("R2")
var_Items:InsertItem(h,nil,"Cell 2.1")
var_Items:InsertItem(h,nil,"Cell 2.2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
451
|
Can I display the cell's check box after the text
local var_Column as IColumn
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:[Def,exCellDrawPartsOrder] := "caption,check"
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellHasCheckBox,var_Items:AddItem("Caption 1"),0] := true
var_Items:[CellHasCheckBox,var_Items:AddItem("Caption 2"),0] := true
|
|
450
|
Can I change the order of the parts in the cell, as checkbox after the text, and so on
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}:[Def,exCellDrawPartsOrder] := "caption,check,icon,icons,picture"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Text")
var_Items:[CellImage,h,0] := 1
var_Items:[CellHasCheckBox,h,0] := true
|
|
449
|
Can I have an image displayed after the text. Can I get that effect without using HTML content
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
IColumn{oDCOCX_Exontrol1:Columns:Add("Column")}:[Def,exCellDrawPartsOrder] := "caption,icon,check,icons,picture"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Text")
var_Items:[CellImage,h,0] := 1
|
|
448
|
Does your control support RightToLeft property for RTL languages or right to left
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exDisableBoth
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("P1")}
var_Column:[Def,exCellHasCheckBox] := true
var_Column:PartialCheck := true
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:RightToLeft := true
oDCOCX_Exontrol1:EndUpdate()
|
|
447
|
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exDisableBoth
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("C1")
var_Columns:Add("C2")
var_Columns:Add("C3")
var_Columns:Add("C4")
var_Columns:Add("C5")
var_Columns:Add("C6")
var_Columns:Add("C7")
var_Columns:Add("C8")
oDCOCX_Exontrol1:RightToLeft := true
oDCOCX_Exontrol1:EndUpdate()
|
|
446
|
How can I use the CASE statement (CASE usage)
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}:Width := 24
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("CASE - statment")}
var_Column:ComputedField := "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
var_Column:ToolTip := var_Column:ComputedField
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
445
|
How can I use the CASE statement (CASE usage)
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}:Width := 24
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("CASE - statment")}
var_Column:ComputedField := "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
var_Column:ToolTip := var_Column:ComputedField
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
444
|
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}:Width := 24
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("SWITCH - statment")}
var_Column:ComputedField := "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)"
var_Column:ToolTip := var_Column:ComputedField
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
443
|
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}:Width := 24
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("IN - statment")}
var_Column:ComputedField := "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''"
var_Column:ToolTip := var_Column:ComputedField
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
442
|
Is is possible to use HTML tags to display in the filter caption
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarCaption := "This is a bit of text being displayed in the filter bar."
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:EndUpdate()
|
|
441
|
How can I find the number of items after filtering
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("")
var_Items:[CellCaption,h,0] := var_Items:VisibleItemCount
oDCOCX_Exontrol1:EndUpdate()
|
|
440
|
How can I change the filter caption
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptWords | exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "london robert"
oDCOCX_Exontrol1:FilterBarCaption := "<r>Found: ... "
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
439
|
While using the filter prompt is it is possible to use wild characters
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptPattern
oDCOCX_Exontrol1:FilterBarPromptPattern := "lon* seat*"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
438
|
How can I list all items that contains any of specified words, not necessary at the beggining
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptStartWords | exFilterPromptContainsAny
oDCOCX_Exontrol1:FilterBarPromptPattern := "london davolio"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
437
|
How can I list all items that contains any of specified words, not strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptWords | exFilterPromptContainsAny
oDCOCX_Exontrol1:FilterBarPromptPattern := "london nancy"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
436
|
How can I list all items that contains all specified words, not strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptWords | exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "london robert"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
435
|
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptCaseSensitive | exFilterPromptContainsAny
oDCOCX_Exontrol1:FilterBarPromptPattern := "Anne"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
434
|
Is it possible to list only items that ends with any of specified strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptEndWith
oDCOCX_Exontrol1:FilterBarPromptColumns := "0"
oDCOCX_Exontrol1:FilterBarPromptPattern := "Fuller"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
433
|
Is it possible to list only items that ends with any of specified strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptEndWith
oDCOCX_Exontrol1:FilterBarPromptColumns := "0"
oDCOCX_Exontrol1:FilterBarPromptPattern := "Fuller"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
432
|
Is it possible to list only items that starts with any of specified strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptStartWith
oDCOCX_Exontrol1:FilterBarPromptColumns := "0"
oDCOCX_Exontrol1:FilterBarPromptPattern := "An M"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
431
|
Is it possible to list only items that starts with specified string
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptStartWith
oDCOCX_Exontrol1:FilterBarPromptColumns := "0"
oDCOCX_Exontrol1:FilterBarPromptPattern := "A"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
430
|
How can I specify that the list should include any of the seqeunces in the pattern
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptContainsAny
oDCOCX_Exontrol1:FilterBarPromptPattern := "london seattle"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
429
|
How can I specify that all sequences in the filter pattern must be included in the list
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "london manager"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
428
|
How do I change at runtime the filter prompt
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptPattern := "london manager"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
427
|
How do I specify to filter only a single column when using the filter prompt
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptColumns := "2,3"
oDCOCX_Exontrol1:FilterBarPromptPattern := "london"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
426
|
How do I change the prompt or the caption being displayed in the filter bar
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPrompt := "changed"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
oDCOCX_Exontrol1:EndUpdate()
|
|
425
|
How do I enable the filter prompt feature
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
424
|
I have an EBN file how can I apply different colors to it, so no need to create a new one
local var_Items as IItems
local h,hC as USUAL
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:HasLines := exNoLine
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
hC := var_Items:InsertItem(h,nil,"Default")
var_Items:[ItemBackColor,hC] := 0x1000000
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
hC := var_Items:InsertItem(h,nil,"Light Green")
var_Items:[ItemBackColor,hC] := 0x100ff00
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
hC := var_Items:InsertItem(h,nil,"Dark Green")
var_Items:[ItemBackColor,hC] := 0x1007f00
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
hC := var_Items:InsertItem(h,nil,"Magenta")
var_Items:[ItemBackColor,hC] := 0x1ff7fff
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
hC := var_Items:InsertItem(h,nil,"Yellow")
var_Items:[ItemBackColor,hC] := 0x17fffff
var_Items:[ItemHeight,var_Items:InsertItem(h,nil,"")] := 6
var_Items:[ExpandItem,h] := true
|
|
423
|
How can I change the foreground color for a particular column
local var_Columns as IColumns
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exHeaderForeColor] := 8439039
var_Columns:Add("Column 3")
|
|
422
|
How can I change the background color for a particular column
local var_Columns as IColumns
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
IColumn{var_Columns:Add("Column 2")}:[Def,exHeaderBackColor] := 8439039
var_Columns:Add("Column 3")
|
|
421
|
How can I display the column using currency format and enlarge the font for certain values
local var_Column as IColumn
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}
var_Column:[Def,exCellCaptionFormat] := 1
var_Column:FormatColumn := "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
var_Items:AddItem("9.94")
var_Items:AddItem("11.94")
var_Items:AddItem("1000")
|
|
420
|
How can I highlight only parts of the cells
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("")}
var_Column:[Def,exCellCaptionFormat] := 1
var_Column:FormatColumn := "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
419
|
How can I get the number of occurrences of a specified string in the cell
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("occurrences")}
var_Column:ComputedField := "lower(%0) count 'o'"
var_Column:FormatColumn := "'contains ' + value + ' of \'o\' chars'"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1 oooof the root")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
418
|
How can I display dates in my format
local var_Column as IColumn
local var_Items as IItems
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
var_Column:[Def,exCellCaptionFormat] := 1
var_Column:FormatColumn := "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0) +')'"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010121"))
var_Items:AddItem(SToD("20020222"))
var_Items:AddItem(SToD("20030313"))
var_Items:AddItem(SToD("20040424"))
|
|
417
|
How can I display dates in short format
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:FormatColumn := "shortdate(value)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101"))
var_Items:AddItem(SToD("20020202"))
var_Items:AddItem(SToD("20030303"))
var_Items:AddItem(SToD("20040404"))
|
|
416
|
How can I display dates in long format
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}:FormatColumn := "longdate(value)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010101"))
var_Items:AddItem(SToD("20020202"))
var_Items:AddItem(SToD("20030303"))
var_Items:AddItem(SToD("20040404"))
|
|
415
|
How can I display only the right part of the cell
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Right")}
var_Column:ComputedField := "%0 right 2"
var_Column:FormatColumn := "'" + CHR(34) + "' + value + '" + CHR(34) + "'"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"SChild 3")
var_Items:[ExpandItem,h] := true
|
|
414
|
How can I display only the left part of the cell
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("")
IColumn{oDCOCX_Exontrol1:Columns:Add("Left")}:ComputedField := "%0 left 2"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"SChild 3")
var_Items:[ExpandItem,h] := true
|
|
413
|
How can I display true or false instead 0 and -1
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Boolean")}:FormatColumn := "value != 0 ? 'true' : 'false'"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(true)
var_Items:AddItem(false)
var_Items:AddItem(true)
var_Items:AddItem(0)
var_Items:AddItem(1)
|
|
412
|
How can I display icons or images instead numbers
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Icons")}
var_Column:[Def,exCellCaptionFormat] := 1
var_Column:FormatColumn := "'The cell displays the icon <img>'+value+'</img> instead ' + value"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(1)
var_Items:AddItem(2)
var_Items:AddItem(3)
|
|
411
|
How can I display the column using currency
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}:FormatColumn := "currency(dbl(value))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
var_Items:AddItem("0")
var_Items:AddItem(5)
var_Items:AddItem("10000.99")
|
|
410
|
How can I display the currency only for not empty cells
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Number")
IColumn{oDCOCX_Exontrol1:Columns:Add("Currency")}:ComputedField := "len(%0) ? currency(dbl(%0)) : ''"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("1.23")
var_Items:AddItem("2.34")
var_Items:AddItem("0")
var_Items:[ItemBackColor,var_Items:AddItem(nil)] := RGB(255,128,128)
var_Items:AddItem("10000.99")
|
|
409
|
Is there a function to display the number of days between two date including the number of hours
local var_Items as IItems
local h as USUAL
IColumn{oDCOCX_Exontrol1:Columns:Add("Start")}:Width := 32
oDCOCX_Exontrol1:Columns:Add("End")
IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}:ComputedField := "2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '' : str(=:1) + ' day(s)') + ( 3:=round(24*(=:0-floor(=:0))) ? (len(=:2) ? ' and ' : '') + =:3 + ' hour(s)' : '' )"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010111"))
var_Items:[CellCaption,h,1] := SToD("20010114")
h := var_Items:AddItem(SToD("20020222 12:00:00"))
var_Items:[CellCaption,h,1] := SToD("20020314 13:00:00")
h := var_Items:AddItem(SToD("20030313"))
var_Items:[CellCaption,h,1] := SToD("20030411 11:00:00")
|
|
408
|
Is there a function to display the number of days between two date including the number of hours
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Start")
oDCOCX_Exontrol1:Columns:Add("End")
IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}:ComputedField := "" + CHR(34) + "D " + CHR(34) + " + int(date(%1)-date(%0)) + " + CHR(34) + " H " + CHR(34) + " + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010111"))
var_Items:[CellCaption,h,1] := SToD("20010114 23:00:00")
h := var_Items:AddItem(SToD("20020222 12:00:00"))
var_Items:[CellCaption,h,1] := SToD("20020314 13:00:00")
h := var_Items:AddItem(SToD("20030313"))
var_Items:[CellCaption,h,1] := SToD("20030411 11:00:00")
|
|
407
|
How can I display the number of days between two dates
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Start")
oDCOCX_Exontrol1:Columns:Add("End")
IColumn{oDCOCX_Exontrol1:Columns:Add("Duration")}:ComputedField := "(date(%1)-date(%0)) + ' days'"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(SToD("20010111"))
var_Items:[CellCaption,h,1] := SToD("20010114")
h := var_Items:AddItem(SToD("20020222"))
var_Items:[CellCaption,h,1] := SToD("20020314")
h := var_Items:AddItem(SToD("20030313"))
var_Items:[CellCaption,h,1] := SToD("20030411")
|
|
406
|
How can I get second part of the date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Second")}:ComputedField := "sec(date(%0))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:10:00"))
var_Items:AddItem(SToD("20020222 11:01:22"))
var_Items:AddItem(SToD("20030313 12:23:01"))
var_Items:AddItem(SToD("20040414 13:11:59"))
|
|
405
|
How can I get minute part of the date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Minute")}:ComputedField := "min(date(%0))"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:10:00"))
var_Items:AddItem(SToD("20020222 11:01:00"))
var_Items:AddItem(SToD("20030313 12:23:00"))
var_Items:AddItem(SToD("20040414 13:11:00"))
|
|
404
|
How can I check the hour part only so I know it was afternoon
local var_Items as IItems
oDCOCX_Exontrol1:ConditionalFormats:Add("hour(%0)>=12",nil):Bold := true
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Hour")}:ComputedField := "hour(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|
|
403
|
What about a function to get the day in the week, or days since Sunday
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("WeekDay")}:ComputedField := "weekday(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|
|
402
|
Is there any function to get the day of the year or number of days since January 1st
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Day since January 1st")}:ComputedField := "yearday(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|
|
401
|
How can I display only the day of the date
local var_Items as IItems
oDCOCX_Exontrol1:Columns:Add("Date")
IColumn{oDCOCX_Exontrol1:Columns:Add("Day")}:ComputedField := "day(%0)"
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20010111 10:00:00"))
var_Items:AddItem(SToD("20020222 11:00:00"))
var_Items:AddItem(SToD("20030313 12:00:00"))
var_Items:AddItem(SToD("20040414 13:00:00"))
|